Carousel Volume 2 #1/carousel.iso/mactosh/john/hc_quick.hqx/Quick Compacter™ 1.0.2/card_2975.txt

Text File | 1989-11-15 | 35.3 KB | 1,220 lines

-- card: 2975 from stack: in.2
-- bmap block id: 0
-- flags: 4000
-- background id: 2588
-- name: Main Prog
----- HyperTalk script -----
-----------------------------------------------------------------------
----This script updates the cursor, which is sometimes left an arrow
----after the Filename XCMD is done. Also updates the QC Size and
----Freespace boxes in the Main Card.
-----------------------------------------------------------------------
on MouseWithin
  choose browse tool
  put the freeSize of this stack into cd fld "Wasted"
  put the Size of this stack into cd fld "STSize"
end MouseWithin




-- part 4 (field)
-- low flags: 01
-- high flags: 4007
-- rect: left=2 top=67 right=283 bottom=274
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Title


-- part 15 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=257 top=284 right=302 bottom=354
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: totsavings


-- part 21 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=2 top=304 right=340 bottom=393
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Data Line


-- part 23 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=2 top=52 right=67 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TitleBar


-- part 24 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=2 top=32 right=51 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: TitleReport


-- part 25 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=257 top=67 right=283 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: BSaved


-- part 35 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=1 top=212 right=228 bottom=19
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MultCheck


-- part 39 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=257 top=52 right=67 bottom=353
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TITLE BAR 2


-- part 41 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=417 top=56 right=78 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Options
----- HyperTalk script -----
on mouseDown
  put "Go Home" into menu
  put Return & "Finder,Quit HyperCard,(-,Restart,Shut Down" after menu
  put Return & "Open Stack..." after menu
  put Return & "Transfer..." after menu
  Put Return & "(-" after Menu
  put Return & "Compact This Stack" after menu
  Put Return & "Clear Report Fields" after menu
  Put Return & "(-" after Menu
  put Return & "Insert HomeCompact script" after menu
  put Return & "Remove HomeCompact script" after menu
  Get HPopupMenu(menu,0,The MouseV-10,The MouseH-75)
  set hilite of cd btn id 41 to false
  if item 1 of it=1 then Domenu "Home"
  if item 1 of it=2 then
    if item 2 of it=2 then
      Domenu "Quit HyperCard"
      exit MouseDown
    end if
    if item 2 of it=4 then
      answer "Do not Restart under Multifinder." with "Restart" or "Cancel"
      if it="Cancel" then exit MouseDown
      DORESTART -- This patches ExitToShell
      domenu "quit hypercard" -- This now shuts down the Mac
    end if
    if item 2 of it=5 then
      answer "Do not Shut Down under Multifinder." with "Shut Down" or "Cancel"
      if it="Cancel" then exit MouseDown
      DOSHUTDOWN -- This patches ExitToShell
      domenu "quit hypercard" -- This now restarts the Mac
    end if
  end if
  if item 1 of it=3 then Domenu "Open Stack..."
  if item 1 of it=4 then
    put "Transfer to which application?"
    Get FileName("APPL")
    hide msg
    if it=empty then exit mouseDown
    open it
  end if
  if item 1 of it=6 then
    put empty into cd fld "Hello!"
    put the freesize of this stack into a
    put the number of chars of a into c
    put a into Cb
    if c>3 then
      put char c-3 of Cb into temp
      put temp&"," into char c-3 of Cb
    end if
    if a>0 then
      put "Attempting to compact"&&Cb&&"bytes in Quick CompacterΓäó."
      domenu "Compact Stack"
      put the freeSize of this stack into cd fld "Wasted"
      put the Size of this stack into cd fld "STSize"
    else
      put "Not necessary to compact Quick CompacterΓäó at this time."
      wait 60 ticks
    end if
  end if
  if item 1 of it=7 then ClrFlds
  if item 1 of it=9 then HomeComIns
  if item 1 of it=10 then HomeComRem
  hide msg
end mouseDown
------------------------Insert Home Compact Script--------------------
on HomeComIns
  global nmQC,alpha,HomeScript,chk1,chk2
  put empty into alpha
  put empty into cd fld "Hello!"
  put "Checking for HomeCompactΓäó script in your home stack."
  put cd fld "HomeCompactΓäó Script" into HomeScript
  set cursor to busy
  lock screen
  set lockmessages to true
  push card
  go home
  put the script of stack "home" into alpha
  if "Quick CompacterΓäó" is in alpha and "HomeCompactΓäó Script" is not in alpha
  then
  Answer "HomeCompactΓäó version 1.0 is installed." with "Upgrade" or "Leave it"
  if it="Upgrade"
  then
  put "Deleting version 1.0 of HomeCompactΓäó script."
  put "The following is a script inserted by Quick CompacterΓäó." into chk1
  put "end MouseStillDown" into chk2
  dold
  put cd fld "Hello!" into alpha
  go home
  install
end if
else
  if "---QCHCStart101" is not in alpha
  then
  install
else
  answer "HomeCompactΓäó 1.0.1 is already installed." with "Cancel"
end if
end if
pop card
unlock screen
wait 60 ticks
set lockmessages to false
end HomeComIns
------------------Delete old Home Compact Script------------------------
on dold
  global nmQC,alpha,chk1,chk2
  go to nmQC
  put empty into c
  put empty into d
  put alpha into cd fld "Hello!"
  put the number of lines in cd fld "Hello!" into z
  repeat with i=1 to z
    if chk1 is in line i of cd fld "Hello!" then put i into c
    if chk2 is in line i of cd fld "Hello!" then put i into d
    if d=i then exit repeat
    set cursor to busy
  end repeat
  if c is empty and d is not empty
  then
  answer "Error in removing script. Sorry." with "Cancel"
  exit dold
end if
repeat with j=d down to c
  delete line j of cd fld "Hello!"
  set cursor to busy
end repeat
hide msg
end dold
---------------------Actually install the script here-------------------
on install
  global alpha,HomeScript
  put "Installing HomeCompactΓäó script in you Home stack."
  put return & HomeScript after alpha
  set the script of stack "home" to alpha
  put "Compacting Home Stack"
  domenu "Compact Stack"
  put "HomeCompactΓäó script is now installed in your Home stack."
end install
------------------------Remove HomeCompact Script-----------------------
on HomeComRem
  global nmQC,alpha,chk1,chk2
  put empty into alpha
  put empty into cd fld "Hello!"
  put "Checking for HomeCompactΓäó script in your home stack."
  set cursor to busy
  lock screen
  set lockmessages to true
  push card
  go home
  put the script of stack "home" into alpha
  go nmQC
  if "---QCHCStart101" is in alpha
  then
  put "Removing version 1.0.1 of HomeCompactΓäó Script."
  put "---QCHCStart101" into chk1
  put "---QCHCEnd" into chk2
else
  put "Removing version 1.0 of HomeCompactΓäó Script."
  put "The following is a script inserted by Quick CompacterΓäó." into chk1
  put "end MouseStillDown" into chk2
end if
dold
put cd fld "Hello!" into alpha
go home
set the script of stack "home" to alpha
put "Compacting Home Stack"
domenu "Compact Stack"
put "Finished removing HomeCompactΓäó Script from your Home Stack."
go nmQC
put empty into cd fld "Hello!"
hide msg
unlock screen
set lockmessages to false
end HomeComRem
--------------------Clear the report fields-----------------------------
on ClrFlds
  global totsav,cur
  hide msg
  hide menubar
  answer "Clear the report fields?" with "Yes" or "Cancel"
  if it="Cancel" then exit ClrFlds
  set cursor to watch
  put empty into cd fld "Title"
  put empty into cd fld "BSaved"
  put empty into cd fld "Persaved"
  put 0 into cur
  put 0 into totsav
  put 0 into cd fld "Totsavings"
end ClrFlds


-- part 42 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=417 top=80 right=102 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseDown
  global shs
  put "Program Info" into menu
  put Return & "Help File" after menu
  put Return & "HomeCompact" after menu
  put Return & "Credits" after menu
  put Return & "Version History" after menu
  Get HPopupMenu(menu,0,The MouseV-10,The MouseH-75)
  set hilite of cd btn id 42 to false
  if item 1 of it=1 then
    hide msg
    hide menubar
    put "Program Info" into shs
    set lockscreen to true
    show cd fld shs
    show cd btn id 37
    set hilite of cd btn id 37 to true
    Unlock screen with visual effect iris open slow
  end if
  if item 1 of it=2 then
    hide msg
    hide menubar
    put "Help File" into shs
    set lockscreen to true
    show cd fld shs
    set hilite of cd btn id 37 to true
    show cd btn id 37
    Unlock screen with visual effect iris open slow
  end if
  if item 1 of it=3 then
    hide msg
    hide menubar
    put "HomeCompact" into shs
    set lockscreen to true
    show cd fld shs
    show cd btn id 37
    set hilite of cd btn id 37 to true
    Unlock screen with visual effect iris open slow
  end if
  if item 1 of it=4 then
    hide msg
    hide menubar
    put "Credits" into shs
    set lockscreen to true
    show cd fld shs
    set hilite of cd btn id 37 to true
    show cd btn id 37
    Unlock screen with visual effect iris open slow
  end if
  if item 1 of it=5 then
    hide msg
    hide menubar
    put "Version History" into shs
    set lockscreen to true
    show cd fld shs
    set hilite of cd btn id 37 to true
    show cd btn id 37
    Unlock screen with visual effect iris open slow
  end if
end MouseDown


-- part 43 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=417 top=32 right=54 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Compact
----- HyperTalk script -----
on mouseDown
  global QL,QLvar
  put "One Stack" into menu
  put Return & "Multiple Stacks" after menu
  put Return & "Entire Folder" after menu
  put the number of lines in cd fld "QuickList" into a
  put return & "Quick Compact List" after menu
  if QLvar is empty then
    repeat with i=1 to a
      put "," & item 2 of line i of cd fld "QuickList" after QLvar
    end repeat
    if QLvar is empty then put ",None installed" into QLvar
  end if
  if QLvarΓëá",None installed" then
    put ",Compact entire list," after menu
    put "-(" after menu
  end if
  put QLvar after menu
  Get HPopupMenu(menu,0,The MouseV-10,The MouseH-75)
  set hilite of cd btn id 43 to false
  if item 1 of it=1 then ComOneStack
  if item 1 of it=2 then ComMultStack
  if item 1 of it=3 then ComEntFldr
  if item 1 of it=4 then
    put item 2 of it into QL
    ComQuickLst
  end if
  wait 60 ticks
  put CleanUp into temp
end mouseDown
-------------------------Compact One Stack-----------------------------
on ComOneStack
  global tst,Numb,TotNumb,ComStatus
  put 1 into tst
  put 1 into Numb
  put 1 into TotNumb
  put 1 into cd fld "MultCheck"
  put "S" into ComStatus
  DoIt
end ComOneStack
------------------------------Compact Multiple Stacks------------------
on ComMultStack
  global tst,nmQC,Numb,TotNumb,ComStatus
  ask "How many files to compact?" with "1000"
  if it=empty then exit ComMultStack
  put "Mult" into ComStatus
  put it into ad
  put 1 into cd fld "MultCheck"
  put 0 into tst
  repeat with i=1 to ad
    if tst=1 then exit repeat
    set cursor to watch
    put i into Numb
    put ad into TotNumb
    Doit
  end repeat
  put empty into Numb
  put empty into TotNumb
  put empty into tst
  if ad=i then answer "The run is complete." with "OK"
end ComMultStack
--------------------Compact Entire Folder-------------------------------
on ComEntFldr
  global Multcnt,StackPath,ComStatus,Etst
  Put "Select a stack and all stacks in that folder will be compacted."
  Put FileName("STAK") into Path
  set lockscreen to true   -----these two lines will reset the screen
  set lockscreen to false  -----so that the outline disappears
  if Path=empty then exit ComEntFldr
  put number of chars of Path into z
  put empty into cd fld "Hello!"
  repeat with i=z down to 1
    if char i of Path is not ":" then delete char i of Path else exit repeat
  end repeat
  Put Files(Path,"STAK") into liststacks
  put liststacks into cd fld "Hello!"
  put 1 into cd fld "MultCheck"
  put 0 into Multcnt
  put the number of lines in cd fld "Hello!" into NumStks
  put "ENTFLDR" into ComStatus
  set cursor to watch
  put 0 into Etst
  repeat with i=1 to NumStks
    put line i of cd fld "Hello!" into StackName
    put Path&StackName into StackPath
    Doit
    if Etst=1 then exit repeat
  end repeat
  put empty into StackPath
  put "Folder Compaction done. Compacted"&&Multcnt&&"out of"&&i&&"in the folder." into msg
end ComEntFldr
-------------------Compact Quick List Item or All-----------------------
on ComQuickLst
  global QL,StackPath,ComStatus,QLSTKName,QLtst
  set cursor to watch
  put the number of lines in cd fld "QuickList" into NL
  if NL=0 then
    put "There is nothing to compact!"
    exit ComQuickLst
  end if
  if QL=2 then
    put 1 into cd fld "MultCheck"
    put 0 into QLtst
    put "Q2" into ComStatus
    repeat with i=1 to NL
      put item 1 of line i of cd fld "QuickList" into StackPath
      put item 2 of line i of cd fld "QuickList" into QLSTKName
      Doit
      if QLtst=1 then exit repeat
    end repeat
    put "Finished compacting entire Quick List."
  else
    put "Q1" into ComStatus
    put item 1 of line(QL-3) of cd fld "QuickList" into StackPath
    put item 2 of line(QL-3) of cd fld "QuickList" into QLSTKName
    Doit
    put "Finished compacting Quick List item."
  end if
  put empty into StackPath
  put empty into QLSTKName
  put empty into QL
  put empty into QLtst
end ComQuickLst



-- part 50 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=417 top=104 right=126 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quick List
----- HyperTalk script -----
on mouseDown
  global RSTK,QLvar
  put empty into b
  put the number of lines in cd fld "QuickList" into a
  put empty into menu
  if QLvar is empty then
    repeat with i=1 to a
      put "," & item 2 of line i of cd fld "QuickList" after QLvar
    end repeat
    if QLvar is empty then put ",None installed" into QLvar
  end if
  if QLvarΓëá",None installed" then
    put ","&"-(" before b
    put ","&"Delete entire list" before b
    put b before menu
  end if
  put QLvar after menu
  put return & "Delete from list" before menu
  put "Add to list" before menu
  Get HPopupMenu(menu,0,The MouseV-10,The MouseH-75)
  set hilite of cd btn id 50 to false
  if item 1 of it=1 then InstallSTK
  if item 1 of it=2 then
    put item 2 of it into RSTK
    RemoveSTK
  end if
end MouseDown
-------------------Install Stack into QuickList----------------------------
on InstallSTK
  global QLvar
  put the number of lines in cd fld "QuickList" into z
  put "Select the stack you wish to add to the Quick List."
  Get FileName("STAK")
  if it is empty then exit InstallSTK
  set lockscreen to true   -----these two lines will reset the screen
  set lockscreen to false  -----so that the outline disappears
  if cd fld "QuickList" contains it then
    put "That stack is already in the list."
    wait 60 ticks
    hide msg
    exit InstallSTK
  end if
  put it into line z+1 of cd fld "QuickList"
  put number of chars of it into y
  repeat with i=y down to 1
    if char i of it is not ":" then
      put char i of it before x
    else
      exit repeat
    end if
  end repeat
  put "Installing the stack:"&&x
  wait 30 ticks
  put ","&x after line z+1 of cd fld "QuickList"
  put empty into QLvar
  put "Finished installing the stack:"&&x
  wait 60 ticks
  hide msg
end InstallSTK
---------------------Remove Stack from QuickList------------------------
on RemoveSTK
  global RSTK,QLvar
  if RSTK=2 then
    answer "Would you like to clear the entire Quick List?" with "Yes" or "Cancel"
    if it="Cancel" then exit RemoveSTK
    put empty into cd fld "QuickList"
    put empty into QLvar
    exit RemoveSTK
  end if
  subtract 3 from RSTK
  put item 2 of line RSTK of cd fld "QuickList" into a
  if a=1 then put empty into cd fld "QuickList"
  put "?" after a
  answer "Remove the stack:"&&a with "Remove" or "Cancel"
  if it="Cancel" then exit RemoveSTK
  delete line RSTK of cd fld "QuickList"
  put empty into QLvar
  put "Stack Removed."
  wait 60 ticks
  hide msg
end RemoveSTK


-- part 53 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=352 top=67 right=283 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: PERSAVED


-- part 54 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=352 top=52 right=67 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: % SAVED


-- part 33 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=0 top=68 right=132 bottom=367
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: HomeCompact¬ Script


-- part 51 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=1 top=132 right=205 bottom=367
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: QuickList


-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=396 top=82 right=268 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Not here
----- HyperTalk script -----
on mouseDown
  global cur
  set lockscreen to true
  set the scroll of cd fld id 4 to 0
  set the scroll of cd fld id 25 to 0
  set the scroll of cd fld id 53 to 0
  set lockscreen to false
  put 0 into cur
end mouseDown



-- part 26 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=396 top=67 right=83 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: UP
----- HyperTalk script -----
on mouseStillDown
  global cur
  set lockscreen to true
  put SU(cur) into cur
  set lockscreen to false
end mouseStillDown


-- part 49 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=0 top=20 right=67 bottom=367
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hello!


-- part 27 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=396 top=267 right=283 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Down
----- HyperTalk script -----
on mouseStillDown
  global cur
  set lockscreen to true
  put SD(cur) into cur
  set lockscreen to false
end mouseStillDown



-- part 55 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=2 top=284 right=302 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 56 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=460 top=325 right=339 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Wasted


-- part 58 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=395 top=325 right=339 bottom=461
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Name


-- part 59 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=395 top=305 right=318 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Stackname


-- part 60 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=460 top=305 right=318 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: STSize


-- part 38 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=2 top=30 right=279 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Program Info


-- part 37 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=2 top=279 right=303 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: >>>CLICK HERE TO CONTINUE<<<
----- HyperTalk script -----
on mouseUp
  global shs
  if shsΓëá"Credits" and shsΓëá"HomeCompact" then set scroll of cd fld shs to 0
  hide menubar
  hide msg
  set lockscreen to true
  hide cd fld shs
  hide cd btn id 37
  Unlock screen with visual effect iris close slow
end mouseUp



-- part 36 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=2 top=30 right=279 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help File


-- part 61 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=2 top=30 right=279 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Credits


-- part 62 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=2 top=30 right=279 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HomeCompact


-- part 63 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=2 top=32 right=279 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Version History


-- part contents for card part 21
----- text -----
Copyright © 1989 Mark R. Elpers. All Rights Reserved.
DISTRIBUTION OF THIS STACK FOR PROFIT IS STRICTLY PROHIBITED WITHOUT THE CONSENT OF THE AUTHOR.

-- part contents for card part 23
----- text -----
COMPACTED STACKS

-- part contents for card part 24
----- text -----
REPORT FIELD

-- part contents for card part 15
----- text -----
0

-- part contents for card part 33
----- text -----
---QCHCStart101
---Do not remove this script. It may alter the security of the HomeStack!
---The following is a script inserted by Quick CompacterΓäó.
---Automatically compacts those stacks that need to be upon the
---closing of that stack.
---This script is part of the Quick CompacterΓäó stack package.
---Quick CompacterΓäó is Shareware.
---HomeCompactΓäó Script v1.0.1

on MouseStillDown
  if the commandKey is down and the shiftKey is down
  then
    set lockmessages to true
    if msg is empty then put empty into z else put msg into z
    put the freesize of this stack into b
    if b>0 then
      put "Compacting " before a
      put "HomeCompactΓäó report: " before a
      put b after a
      put " bytes in this stack." after a
      put a into message box
      domenu "Compact Stack"
      put "HomeCompactΓäó report: Compaction complete. " into c
      put b after c
      put " bytes saved." after c
      put c into message box
    else
      put "HomeCompactΓäó report: This stack does not need to be compacted."
    end if
    wait 120 ticks
    put z into msg
    hide msg box
    set lockMessages to false
  end if
end MouseStillDown
---QCHCEnd


-- part contents for card part 35
----- text -----
0

-- part contents for card part 36
----- text -----
Quick CompacterΓäó Help File
*************************************************************
Compact: One Stack
Selecting this option allows you to choose a HyperCard stack that will automatically be compacted, if needed. The file name, the amount of bytes saved and the percent of bytes saved will be displayed in the Report fields and the bytes saved amount will be added to the Total Bytes Saved field.

Compact: Multiple Stacks
Selecting this option allows you to compact a large number of stacks without choosing Compact: One Stack each time. Press the 'Cancel' button on any of the file selection dialog boxes to end this procedure.

Compact: Entire Folder
Selecting this option allows you to compact all the stacks in a given folder. A standard dialog box will appear, navigate to the desired folder, choose a stack and all the rest of the stacks in that folder will be compacted.
This option only compacts the stacks which are resident to that folder. It will not compact the stacks in a folder within the selected folder.

Compact: Quick List
Selecting this option will allow you to either: 1) compact all the files displayed in the Quick ListΓäó, or, 2) compact a single file on the Quick ListΓäó.
Note: if you attempt to compact a stack in the Quick ListΓäó that no longer exists or has been moved since added to the Quick ListΓäó, you will receive an error message. Delete that stack from the Quick ListΓäó and add it again.
******See Quick List: below for more information******
************************
Options: Go Home
Selecting this option takes you to the home stack. This option will compact the Quick CompacterΓäó stack if necessary.

Options: Go to Finder
Selecting this option quits HyperCard and take you to the Finder. This option  compacts the Quick CompacterΓäó stack if necessary.

Options: Open Stack...
Selecting this option allows you to select a stack to open, then takes you to that stack. This option compacts the Quick CompacterΓäó stack if necessary.

Options: Transfer...
Selecting this option allow you to select an application to open, then takes you to that application. Upon quiting that application, you return to HyperCard. This option compacts the Quick CompacterΓäó stack if necessary.

Options: Compact this Stack
Selecting this option automatically compacts the Quick CompacterΓäó stack if necessary.

Options: Clear Report Field
Selecting this option clears the Compacted Stack, Bytes Saved, % Saved and Total Bytes Saved fields. You will also be asked each time you open Quick CompacterΓäó if you want these fields cleared.

Options: Insert HomeCompact Script
Selecting this option installs the HomeCompactΓäó script in your Home Stack. If the HomeCompactΓäó script is already installed, it will check the version number and if necessary ask you to update it.
****See Help: HomeCompact Script for more info****

Options: Remove HomeCompact Script
This removes the HomeCompactΓäó Script from your Home stack.
************************
Help: Program Info
Displays information on this stack.

Help: Help File
Displays this field.

Help: Credits
Displays the XFCN credits and program credits.

Help: HomeCompact Script
Displays information about HomeCompact.
************************
Quick List: Add to List
Selecting this option allows you to choose a stack to add to the Quick ListΓäó. You can not add the same file to the Quick ListΓäó twice.

Quick List: Delete from List
Selecting this option allows you to either, 1) remove all stacks from the Quick ListΓäó, or, 2) remove a single stack from the Quick ListΓäó.
************************
Known problems
If there is problem with the target stack. For example, if the
target stack has been corrupted (bad background, etc.) .
If the version of HyperCard which is running is incompatible with the version under which the target stack was created you will be sent back to the finder.
If there is not enough disk space for HyperCard to compact
the target stack you will receive an error message.
I am working on these problems. If you have any suggestions to solve them
or have general suggestions please contact me at the addresses on the
Program Info card.
*************************************************************
THIS IS NOT A COMPLETE LIST OF PROBLEMS.
USE THIS STACK AT YOUR OWN RISK!

-- part contents for card part 38
----- text -----
Quick CompacterΓäó Program Info
*************************************************************
This was written to compact stacks easily and quickly from a base stack. It came to my attention that a major portion of my hard drive was being used to store stacks that had a large amount of wasted space. By running this stack, you can free hundreds of kilobytes held captive by your stacks. I am always trying to improve this program, so if you find a problem with this stack, or have an idea to make it better, please tell me and I will try to put it in a future version. All I ask is that you send a small shareware fee            ($10). In lieu of the fee you can send me an original stack that you have created. I will keep a record of those who have registered and send them upgrade information when I complete the next version.
Please Send To:
Mark Elpers
13000 Skyline
Woodside, CA 94062
or
leave a message on GEnie to: M.Elpers
or
on Bitnet to: [e-mail]

Author's note:
Some people may consider this stack overkill for compacting a stack, but I had a great time writing it and learned a lot. Anyway, if you can get some use out of it, then it was worth the effort. MRE

Quick CompacterΓäó, Quick ListΓäó and HomeCompactΓäó are trademarks. All rights reserved by Mark Richard Elpers.

-- part contents for card part 39
----- text -----
BYTES SAVED

-- part contents for card part 54
----- text -----
% SAVED

-- part contents for card part 55
----- text -----
Total Bytes Saved:

-- part contents for background part 5
----- text -----
V. 1.0.2

-- part contents for card part 58
----- text -----
FreeSpace:

-- part contents for card part 56
----- text -----
0

-- part contents for card part 59
----- text -----
Q.C. Size :

-- part contents for card part 60
----- text -----
57452

-- part contents for card part 61
----- text -----
Quick CompacterΓäó Credits
*************************************************************
Credits for use of XFNC's
Files XFCN and Hpopupmenu XFCN ©1988-89 by Guy de Picciotto, its author. All rights reserved
WritePermission XFCN ©1989 by the Trustees of Dartmouth College
DoRestart XCMD and DoShutdown XCMD by Earle R. Horton
Developed with the aid of the Developer Stack. To receive the latest version of the
Developer Stack, send $5 to: Steve Drazga Box 388 Southampton, PA  18966
SU XFCN and SD XFCN ©1989 by Mark Richard Elpers.
*************************************************************
Quick CompacterΓäó written by
Mark R. Elpers
13000 Skyline Blvd
Woodside, CA 95521

Genie: M. Elpers
Bitnet: [e-mail]

-- part contents for card part 62
----- text -----
HomeCompactΓäó Help
**************************************************************
HomeCompactΓäó allows for easy compaction of a stack from within that stack. After installing the HomeCompactΓäó script in your Home stack, you can compact any stack by holding the <Shift> and <Command> keys and clicking the mouse button. Try to click the mouse button in an empty space on the card. The stack will automatically be compacted and the results shown in the message box.
Currently, the HomeCompactΓäó script does not check for locked stacks, and will not be able to compact a locked stack. So please don't try, the results could be disastrous! If I figure out how to check for a locked stack I will implement it in a later version of Quick CompacterΓäó.

-- part contents for card part 63
----- text -----
Quick CompacterΓäó Version History
**********************************************************************
Version 1.0b1
First beta-version released
**********************************************************************
Version 1.0b9
Last Beta verion released
 Removed various bugs
 Used XCMD's to scroll fields
 Slightly faster through compression of scripts
**********************************************************************
Version 1.0
First finished version released
 Included HomeCompactΓäó script for first time
 Better user Interface
 Removed print field button (never implemented)
Removed various minor bugs
 Moved Help fields to main card
**********************************************************************
Version 1.0.2 (11-17-89)
 Greatly enhanced user interface
 Incorporated PopUpMenus on Main Card
 Added Compact entire folder
 Added Quick ListΓäó Compaction Feature
Removed display of target stack during compaction (for greater speed)
Upgraded HomeCompactΓäó script
Added Remove HomeCompactΓäó script
Included percentage saved from compacted stack
 Added check for locked stacks
 Added check for nonexistent stacks (for QL)
 Added Restart and Shut Down to Menu
Added title bar to Main Card
Added Quick CompacterΓäó size and Freespace
Added HomeCompactΓäó Help file
Added Credit file
Added Version History file
Increased Report field size
Reduced font size of Report field
**********************************************************************
Future Version *MAY* include:
Ability to print and save the report fields
File Tools (Copy, Delete, Move, Rename Stacks)
Button to paste to Home stack for easier navigation
New Record field of stacks progress (Time, action etc.)
Make sure there is enough space to compact stack on the disk
Show stack info (size, freespace etc.) before compaction
Options or Preference window with:
1. Ability to go to stack to see compaction
2. Ability to change font and size in report fields
3. Ability add every stack compacted to Quick ListΓäó
4. Ability to change visual effects
Quick ListΓäó changes:
1. Ability to add entire folder to Quick ListΓäó
2. Quick ListΓäó info in variable for quicker retrieval